home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / trap.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-02-14  |  1.1 KB  |  38 lines
  1. 5   RANDOMIZE
  2. 10  G = 6 : N=100
  3. 50  INPUT "DO YOU WANT INSTRUCTIONS (1=YES, 2=N0)";Z
  4. 60  IF Z<>1 THEN 180
  5. 70  PRINT "I AM THINKING OF A NUMBER BETWEEN 1 AND ";N
  6. 80  PRINT "TRY TO GUESS MY NUMBER. ON EACH GUESS, YOU"
  7. 90  PRINT "ARE TO ENTER 2 NUMBERS, TRYING TO TRAP MY NUMBER "
  8. 100  PRINT "BETWEEN YOUR NUMBERS. I WILL TELL YOU IF YOU "
  9. 110  PRINT "TRAPPED MY NUMBER, IF MY NUMBER IS SMALLER,"
  10. 120  PRINT "OR IF MY NUMBER IS LARGER THAN YOUR TWO NUMBERS."
  11. 130  PRINT "IF YOU THINK YOU KNOW MY NUMBER, INPUT THAT NUMBER"
  12. 140  PRINT "FOR BOTH GUESSES. EX- 4,4."
  13. 150  PRINT "YOU GET ";G;" GUESSES."
  14. 180  X = INT(RND*N)
  15. 200  FOR Q = 1 TO G
  16. 210  PRINT : PRINT "GUESS #";Q; : INPUT A,B
  17. 230  IF A<>B THEN 240
  18. 235  IF X = A THEN 400
  19. 240  IF A<=B THEN 260
  20. 250  GOSUB 360
  21. 260  IF X<A THEN 300
  22. 270  IF X < = B THEN 320
  23. 280  PRINT "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS."
  24. 290  GOTO 330
  25. 300  PRINT "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS."
  26. 310  GOTO 330
  27. 320  PRINT "YOU HAVE TRAPPED MY NUMBER."
  28. 330  NEXT Q
  29. 340  PRINT " SORRY, THAT'S ";G;" GUESSES. MY NUMBER WAS "; X
  30. 350  GOTO 410
  31. 360  R=A : A=B : B=R
  32. 390  RETURN
  33. 400  PRINT "YOU GOT IT!!!"
  34. 410  INPUT "DO YOU WANT TO PLAY AGAIN (1=YES, 2=NO)" ;F
  35. 420  IF F<>2 THEN 180
  36. 430  PRINT "GOODBYE"
  37. 440  END
  38.